home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / cisco / cisco-expect.shar / ciscocheckpoint next >
Text File  |  1992-08-07  |  501b  |  32 lines
  1. #!/usr/local/bin/expect -f
  2. #
  3. # restart IP accounting statistics
  4. #
  5. # args: ciscoget router passwd enablepasswd
  6. #
  7.  
  8. set router [index $argv 1]
  9. set password [index $argv 2]
  10. set enablepass [index $argv 3]
  11.  
  12. proc timedout {args} {
  13.     send_user "Expect timed out" $args \n
  14.     exit
  15. }
  16.  
  17. source ciscologin.expect
  18.  
  19. if {[length $argv] < 4} {
  20.     print "Invalid number of arguments\n"
  21.     exit
  22. }
  23.  
  24. send_user \n\n\n
  25. spawn telnet $router
  26. login $enablepass
  27. send clear ip accounting\r
  28. expect *#*
  29. send QUIT\r
  30. expect *Closed*
  31. exit 0
  32.